      Subroutine Damping_Model_Name(Ttemp,Ielem,Igaus,Lprpm,Propm,Dstre,Dstan,Dmatx,      &
                                    Mdamp,Icprt,Model,Propd,Lprpd,Voidr,Lpara,Ktest,      &
                                    Ntest,Porep,Dpore)                                    

!.... Get The Name Of The Damping Model Used

      Use Constant,          ONLY: Icdat,Icout,Mgmod,Ndime,Nstre
    
      Implicit None
      Integer Model,Lprpd,Lpara,Ntest,Ktest(Ntest)
      Double Precision Gausm(Mgmod),Propd(Lprpd),Voidr,Porep,Dpore

!.... Used Variable
      Character Ttemp*(*)
!.... Input Varaibles
      Integer Ielem,Igaus,Icprt
!.... Passed Variables
      Integer Lprpm
      Double Precision Propm(Lprpm),Dstre(Nstre),Dstan(Nstre)
      Double Precision Dmatx(Nstre,Nstre)
!.... Output Variable
      Integer Mdamp

!.... Local Variables
      Integer Itemp,Iswdp
      Iswdp=1
      
   10 Continue
         Read (Icdat,'(A)',Err=3100,End=3200)Ttemp
      If (Ttemp.Eq.' ') Goto 10
      
      Itemp=Len_Trim(Ttemp)
      
      Write(Icout,2003)Ttemp(1:Itemp)
 2003 Format(' Damping Model Type: ',A)
      
      If (Ttemp(1:8).Ne.'DAMPMOD:') Then
         Call Warning_Message('Damping_Model_Name-1: '//'Damping Model Name Should Start With Dampmod:')         
         Backspace Icdat
         Mdamp=0
      Else
         If      (Ttemp(9:16).Eq.'ELASTIC ') Then
            Mdamp=1
         Else If (Ttemp(9:16).Eq.'CURRENT ') Then
            Mdamp=2
         Else
            Call Warning_Message('Damping_Model_Name-2: Damping Model Name Not Recognised')
            Mdamp=0
         End If
      End If
      
      Call Damping_Model(Mdamp,Propm,Lprpm,Dstre,Dstan,Dmatx,Ielem,Igaus              &
                        ,Model,Propd,Lprpd,Gausm,Voidr,Lpara,Ktest,Ntest              &
                        ,Porep,Dpore,Iswdp)                          

      Return
    
 3100 Continue
         Call Warning_Message('Damping_Model_Name-3: Error In The Above Channel')
      Return
 3200 Continue
         Call Warning_Message('Damping_Model_Name-4: End Of File In The Above Channel')
      Return
    
      End